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I.  History  and  Overview  "The  design  goal  of  the  NYU  ADA  project  has  Km  to  produce  (*s 
rapidly  u  possible)^  complete  language  Ada  system  which  Is  faithful  in  all  respects  to  the 
language  definition,  and  that  can  serve  as  an  operational  *»fifittmn  of  Ada,  to  be  perused  by 
language  designers,  implementors  and  users.  The  design  and  implementation  of  Ada/Ed  was  ini¬ 
tiated  at  a  point  when  the  language  was  not  completely  defined  or  understood  (in  fact  the  first 
veruon  was  an  implementation  of  Preliminary  Ada),  and  has  culminated  in  the  first  fully  vali¬ 
dated  ANSI-Ada  translator.  *r 


A  conventional  approach  to  compiler  construction,  realized  in  a  "*edhm»  level  language  such  as 
PASCAL,  BLISS  or  SIMULA,  would  have  resulted  in  a  massive  program  text  which  would  not 
have  met  either  criterion:  usability  and  readability.  Instead,  the  entire  Ada  system  was  pro¬ 
grammed  using  a  very  high  level  language  developed  at  NYU  with  NSF  support  called  SETL  (for 
SET  Language).  Using  SETL,  it  was  possible  to  create  a  complete  Ada  system  in  about  one  fifth 
of  the  time  which  would  otherwise  have  been  required. 


There  are  several  implementations  of  SETL  far  various  computers,  including  the  VAX  11/780 
and  11/750,  DEC  10/20,  IBM/370,  Ahmdahl/470  and  CDC  CYBER.  Ada/Ed  be  implemented 
on  any  machine  tunning  SETL,  and  in  fact  runs  on  die  first  five  of  the  above.  In  any  of  the 
SETL  text  of  Ada/Ed,  which  an  one  hand  can  he  viewed  aa  a  high  level  tfcfinitinn  of  tlte  seman¬ 
tics  of  Ada',  runs  as  a  production  program,  providutg  and  ea«utinn  capability  for- the 

complete  ANSI  Ada  language. 


The  price  paid  far  this  very  high-level  approach  is  that  NYU  Ada/Ed  is  spectacularly  inefficient. 
Nevertheless  Ada/Ed  in  its  current  form  is  usable  as  a  checkout  tool,  particularly  for  te»rf«*ig  and 
training  purposes.  Great  effort  has  been  put  into  creating  a  friendly  interface  with  good  error 
messages  and  diagnostics  Use  of  the  system  will  tell  how  well  this  objective  has  been  met.  Wc 
believe  the  system  establishes  new  standards  for  effective  error  reporting,  which  is  particularly 
remarkable  for  a  system  which  is  entirely  table  driven. 

On  the  other  hand,  the  user  will  toon  realize  that  Ada/Ed  is  quite  unsuitable  in  its  current  form 
for  any  substantial  computation  unless  an  enormous  amount  of  "-Aim,  resources  are  available. 
The  speed  ratio  between  execution  in  Ada/Ed  and  what  on  he  achieved  in  an  effective  produc¬ 
tion  compiler  is  of  several  orders  of  magnitude. 

Repeated  references  to  'the  current  version’  will  alert  the  reader  that  Ada/Ed  is  an  evolving  pro¬ 
ject,  and  that  subsequent  releases  can  be  expected  to  provide  better  performance  than  this  ver¬ 
sion.  The  current  activities  cf  the  NYUADA  project  indude  the  construction  of  a  much  faster 
interpreter,  also  written  in  SETL,  and  far  which  the  current  Ada/Ed  system  serves  as  a  design 
prototype. 
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2.  Sources  of  Information 

2.1.  Reference  Material  The  Ada  Reference  Manual  is  available  from  the  Government  Print¬ 
ing  Office  as  the  Ada  Language  Reference  Manual,  ANSI  /  MIL-STD  1815  A,  January  1983. 
This  manual  is  referred  to  as  the  LRM  in  this  document. 

2.2.  On-line  material 

A  copy  of  each  of  the  on  line  documents  for  the  NYU  Ada  system  may  be  printed  on  the  stan¬ 
dard  system  printer  (queue  SYSS PRINT)  by  typing  the  command  line: 

@  nyu$adaed:printdocs 

The  on  line  documents  indude: 

The  Ada  Help  file  nyu$adaedmdahelp.lis 

The  Ada  FREDEF  package:  nyu$adaed:predef.ada 
The  Installation  Guide:  nyu$a daeddnstall.doc 

The  Users*  Guide:  nyuSsdaedrmcnnan.doc 

The  Appendix  F  of  the  Reference  v 

Manual  for  this  particular 

implementation  nyu$i>  tfardappendf.doc 
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3.  Bade  NYU/Ada  This  chapter  describes  the  basics  of  compiling  and  executing  programs  wing 
the  NYU/Ada  system.  It  is  assumed  that  NYU/Ada  has  been  'installed*  and  that  tl*  definitions 
are  available.  The  "install.doc”  document  in  NYUSADAED  describes  bow  to  achieve  this.  The 
necessary  symbol  definitions  and  command  files  for  using  Ada  are  available  in  th:  file 
NYUSADAEDadadefs.com  .  The  easiest  way  to  access  them  is  to  add: 

$  @NYU$  ADAEEfcADADEFS 

to  your  LOGIN.COM  file. 

3.1.  A  First  Program  As  a  first  example,  we  will  compile  and  execute  the  primordial  program 
which  prints  Hello,  world!”  on  the  standard  output  As  a  first  attempt,  we  try  the  Ada  program: 

with  textjkj;  use  textjo; 
procedure  main  is 
begin 

pudinefHello,  world!”) 
end  main; 

>  * 

Assume  that  this  text  has  been  entered  into  a  file  call  'testada*  (a  abnilw  ”test.ada”  is  provided 

with  the  Ada/Ed  distribution  tape).  A  single  command  compiles  and  executes  this  file: 

$  ada  test 

and  produces  the  following  listing  and  statistics : 
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NYU  ANSI-Ada/ED  1.4(28-May-84)  FRI  17JUN84  150034  PAGE  1 


ADACle:  TRY. ADA 

LISfile:  TRY.LIS 


1  with  textjo;  use  textjo; 

2  procedure  main  is 

3  begin 

4  putlinefHello,  world!*) 

Error  *;“  expected  after  this  token 
< - > 

•**  Semantic  Error  Undeclared  identifier  PUHJNTE  (RRM  3.1) 

5  end  main; 

2  translation  errors  detected 
Translation  time:  20  seconds 


$ 

Compilation  takes  place  in  two  phases,  call  tile  "syntax  phase”  and  the  'semantic  phase*.  During 
the  first  phase,  the  compiler  detected  a  syntactic  error  on  line  4  of  our  program  -  a  V  was  ousting 
after  the  call  to  putlineO- 

During  the  second  phase,  a  single  error  was  again  detected,  also  In  line  4.  The  identifier  "FUT- 
UNE*  was  not  declared.  A  review  of  the  textjo  package  in  the  Ada  Reference  Manual  reveals 
that  the  procedure  is  called  "putJine". 


After  tile  errors  have  been  fixed,  we  try  the  "ads*  command  again  and  get  the  output: 
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NYU  ANSI-Ada/ED  1.4(28-May-84)  FRI  17  JUN  84  15. -01 30  PAGE  1 

ADAfile:  TRY.  ADA 

LISfile:  TRY.US 


1  with  textjo;  me  textjo; 

2  procedure  main  is 

3  begin 

4  puUmeCHeUo,  world!*); 

5  end; 

No  translation  error*  detected 
Translation  time:  18  seconds 

Binding  tune:  1.0  seconds 

Begin  Ada  execution 


Hello,  world! 

t 


Execution  complete 
Execution  time:  2  seconds 
I-oode  statements  executed:  8 

$ 

This  time,  there  are  no  syntax  or  semantic  errors,  and  the  compilation  completes  normally.  The 
Under  then  goes  to  work  and  links  our  procedure  with  the  textjo  library,  1.0  seconds  to 
achieve  this.  The  resulting  file  Is  then  interpreted,  producing  the  output  arid  statistics, 

the  last  of  which  indicates  the  number  of  internal  code  statements  interpreted. 

3J.  The  Compilation  Process  Before  we  display  another  example  program,  some  more  expla¬ 
nation  of  the  compilation  process  is  In  order. 

In  the  previous  section,  we  mentioned  the  two  phases  of  the  compter  parsing  and  semantic 
analysis.  At  the  end  of  these  phases,  a  file  of  intermediate  code,  caticd  an  ab-filc  (far  Ada  Inter¬ 
mediate  Source)  Is  produced.  K  the  original  program  appears  In  the  file  *testada”,  the 
corresponding  alaJfile  will  be  called  *test.ais*.  This  file  contains  the  Intermediate  code  which  the 
interpreter  executes  when  the  program  is  *nm*. 

A  subsequent  component  of  Ada/Ed,  namely  die  Under,  then  takes  the  and  produces  an 
alxjRle  (Ada  Intennedfiate  Executable  file).  The  aixjile  oowtains  tie  intermediate  code  from  the 
ai*_file,  bound  together  with  the  necessary  compQatkm  units  from  libraries  requested  by  die  pro¬ 
gram. 

It  Is  the  ah_file  which  Is  passed  to  the  Interpreter  for  'execution*. 
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The  ADA  command  causes  the  compiler,  Under,  and  interpreter  to  be  run  in  tucoession,. 
then  erases  the  intermediate  files.  It  is  passible  to  retain  these  files,  for  example,  if  one  desire 
execute  many  times  without  re-compiling.  Variants  of  the  ADA  command  are  also  pravi 
which  run  the  various  phases  of  the  system  separately.  Chapter  4  describes  these  command 
detail. 

3J.  A  Larger  Program  For  the  second  example,  we  will  use  a  simple  tasking  program.  U 
this  example  we  will  introduce  Ada  libraries  and  the  mechanism  for  separate  compilation. 

The  program  consists  of  three  tasks,  a  producer  and  consumer  which  communicate  throuj 
buffer  task.  The  task  body  of  the  buffer  task  b  identical  to  the  example  in  section  9.12  of 
Ada  Reference  Manual,  except  that  here  it  appears  as  a  subunit  of  the  main  program.  We 
write  a  program  which  uses  that  separately  compiled  buffer  task,  whose  source  is  in  the 
"buf.ada".  Our  wsin  program  b  in  the  file  "petask.ada": 


£  S  •  S  bIsI 
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-  DEMONSTRATION  PROGRAM: 

-  Producer  Consumer  Tasking  example 

with  textjo;  me  textjo; 
procedure  tasker  b 

task  buffer  is 

entry  read  (c  out  integer); 
entry  write  (c:  in  integer); 

end; 


teak  producer; 

teak  consumer; 

taak  body  buffer  la  aeparate; 

task  body  producer  la 
begin 

for  count  in  1 ..  4 
loop  t 

put_line(wEntry  call  to  write  in  buffer  number  " 

A  integer*image(count)); 
buffer.write  (count); 
putJineCEatry  call  to  write  complete."); 
end  loop; 
buffer.write  (0); 
cod  producer; 

taak  body  consumer  la 
nae  textjo; 
count:  integer; 
begin 
loop 

puUineCEntry  call  to  read  to  get  number.”); 
buffer,  read  (count); 
exit  when  count  -  0; 

puUineCEntry  call  to  read  obtained  number.  * 

&  integer’image(count)); 

end  loop; 
end  consumer; 

begin 

null; 

end  tasker. 

The  petask.ada  file  must  be  compiled  first  (aee  LRM  sect  10J  for  the  rules  on  order  of 
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WplMtMj  awd  piamd  hi  a  library.  To  do  this,  we  me  the  ADAC  command  which  compiles  a 
panpmm  wfcham  bMpg  or  caecatiaf.  Normally,  ADAC  produces  an  aisJile,  but  we  wish  to 
fcafld  •  Mmjf  mmaWof  oar  two  compilations.  An  Ada/Ed  library  is  a  directory  that 

maps  fe  aamas  af  o—pfladon  ttnits  to  the  files  In  which  their  ais  code  reside.  To  construct  a 
ferny  wc  ms  the  /LDFELE  and  /NEWL1B  qualifiers  an  ADAD 

S  ADAC  pctask/UBFXLE-petask/NEWLIB 

The  pctask-ada  file  is  compiled  and  information  to  that  effect  is  placed  in  a  new  library, 
pctask.Hb. 

Now  we  compile  the  buffer  task  subunit  into  the  library  by  means  of  the  command : 

$  ADAC  buf/UBFlL£«pctask 

The  library  pct&sk.lib  now  contains  information  about  the  ais  code  for  the  tasker  main  program, 
the  enclosed  producer  and  consumer  tasks,  and  the  separate  subunit  buffer  task.  These  may  be 
bound  and  executed  by: 

$  ADAXL  petask 


which  will  output: 


VMS  Adattd  Usov  Gold* 


Binding  time:  13  seconds 

Begin  Ada  execution 

Entry  call  to  read  to  get  number. 

Entry  call  to  write  in  buffer  number  1 
Entry  call  to  write  complete. 

Entry  call  to  write  in  buffer  number  2 
Entry  call  to  read  obtained  number  1 
Entry  call  to  write  complete. 

Entry  call  to  read  to  get  number. 

Entry  call  to  write  in  buffer  number  3 
Entry  call  to  read  obtained  number  2  . 

Entry  call  to  read  to  get  number. 

Entry  call  to  write  complete. 

Entry  call  to  write  in  buffer  number  4 
Entry  call  to  read  obtained  number  3 
Entry  call  to  write  complete. 

Entry  call  to  read  to  get  number. 

Entry  call  to  readobtained  number  4 
Entry  call  to  read  to  get  number. 

Execution  complete 
Execution  time:  99  aeoonds 
I-code  statements  executed:  151 

As  will  be  described  below,  the  /ADCFUJE  qualifier  can  be  added  on  the  ADAXL  command  to 
save  the  pctask.aix  file  so  that  binding  could  have  been  avoided  in  later  runs. 
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4.  Details  of  the  Complete  System  This  chapter  gives  details  of  the  commands  available  with 
the  NYU  Ada/ED  system.  These  commands  are: 

ADA  compiles  and  executes  an  Ada  program. 

ADAC  eompilwt  but  does  not  execute  an  Ada  program. 

ADAX  executes  a  previously  compiled  program. 

ADAXL  executes  a  program  from  a  library  file. 

ADACB  <vwnpiv»  and  binds  an  Ada  program. 

ADAXB  executes  a  compiled  and  bound  program. 

ADAP  parses  an  Ada  program  but  does  no  semantic  analysis. 

These  commands  are  summarized  in  the  diagram: 
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4.1.  Qualifiers  This  is  a  list  of  qualifiers  which  may  be  used  with  the  commands  in  dm  NYU 
Ada/ED  system: 

/ABFILE[-fik] 

Hus  qualifier  indicates  whether  an  intermediate  file  is  to  be  generated.  A  file  may  be  given.  If 
the  qualifier  does  not  mention  a  specific  file,  then  the  intermediate  file  has  the  tasm  aaae  as  the 
source  file,  but  with  the  extension  AIS.  With  ADAC  the  default  is  /AISFILE  nnW<  overridden 
by  /NOCODE.  This  file  may  be  executed  by  the  command  AD  AX  aisJSle. 

/AKHLEt-file] 

This  qualifier  indicates  whether  an  executable  file  of  bound  code  is  to  be  generated.  A  file  may 
be  given.  If  the  qualifier  does  not  mention  a  specific  file,  then  the  executable  file  has  tlx  same 
name  as  the  source  file,  but  with  the  extension  AIX.  This  file  may  be  executed  by  the  tnnwmiul 
ADAXB  aixjile. 

/ERRFILE^file] 

This  ^qualifier  specifies  that  error  messages  are  to  be  listed  cm  the  ^reified  file  as  they  are 
detected.  If  no  file  is  specified,  dm  the  input  file  name  together  with  the  default  extension 
“ERR*  will  be  used.  If  die  listing  file  is  not  the  default  and  this  qualifier  is  not  given,  then  the 
standard  output  file  will  be  used  as  the  ERRFUJE.  If  die  ERRFHJE  nor  the  standard  list¬ 
ing  file  are  specified,  or  if  they  are  botb  spedfied  to  he  die  same  file,  then  no  separate  error  list¬ 
ing  will  he  produced  and  errors  will  be  listed  with  the  source  listing  only.  The  qualifier  /SL  may 
be  used  to  force  a  separate  listing  of  ernes  that  would  otherwise  be  listed  on  the  list  file. 

AJBFILE[-fi]e] 

Uses  the  specified  library  to  satisfy  references  to  compfiation  units  not  present  in  the  file  being 
compiled  (ADA  or  ADAC)  or  executed  (ADA  or  AD  AX).  If  an  AISfik  is  being  created 
(ADAC),  then  if  it  is  free  of  errors  it  will  be  included  in  this  library.  See  also  the  /NEWLIB 


/USIl-fik] 

/NOLIST 

The  qualifier  /LIST  is  used  to  obtain  a  listing  of  the  source  file.  If  no  file  is  specified,  then  the 
input  file  name  together  with  the  default  extension  US*  will  be  used.  If  an  explicit  listing  file  is 
given,  tiie  extension  may  be  omitted,  in  which  case  the  default,  “LIS*,  will  be  used.  Hm  qualif¬ 
ier  /NOLIST  signifies  that  no  listing  file  is  to  be  generated.  If  neither  LIST  nor  NOLIST  is  speci¬ 
fied  for  an  interactive  run,  then  the  terminal  is  the  list  file  -  Le.,  LIST  «  SYSSOUTPUT.  The 
default  is  /LIST. 

/MAIN[- proejaame] 

die  name  of  the  main  program  for  execution  or  creation  of  an  AIXfile.  If  the  n»ny  of 
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the  main  program  is  MAIN,  then  the  pracjume  can  be  omitted.  When  the  current  «wmp«t»riifp 
or  program  library  has  only  one  main  program  (a  panmeterkss  procedure)  this  qualifier  Is  not 
needed. 


/NEWUB 

Indicates  that  a  new  library  is  to  be  created  by  the  current  compilation.  The  wnw  ctf  the  library 
is  indicated  by  the  AJBFELE  qualifier.  This  qualifier  must  he  if  a  library  referenced  by 

the  SUBFILE  qualifier  does  not  already  exist. 

ISOCODE 

Overrides  the  default  /AISFUJE  specification  cf  the  ADAC  command,  preventing  the  generation 
of  an  abjfile.  Also  overrides  the  default  /AIXFUJE  specification  of  the  ADACB  jt 

should  be  used  only  when  only  gWlnwg  for  compilation  time  erron  is 

/NORUN 

Specifies  that  the  program  is  not  to  be  executed  (interpreted). 

mo 

/NOnO(D) 

Automatically  prefixes  every  compilation  unit  compiled  with  die  context  gmriliratinn- 
with  TEXTJO;  use  TEXT  JO; 

The  default  is  SNOTIO. 

/TRACE 

Trace  execution  cf  the  program. 

/ISELECT-FAIR 

ASELECT-ARB 

Sets  the  scheduling  regime  for  open  entries  in  a  select  statement. 

A  SLICE  ~n 

Set  the  scheduling  mode  (n  -  0  implies  FIFO,  n  >  0  gives  a  time  slice). 

4  L2.  FBes  If  no  Ada  source  file  is  given  far  the  ADA  or  ADAC  commands,  tte  editor  is 
entered  and  a  temporary  file  is  created.  The  ADA  file  by  default  has  the  extension  "ADA",  so 
specification  of  this  extension  is  unnecessary.  The  default  extension  for  other  files  k  the  three 
characters  which  proceed  *JUe'  In  the  command  format  as  described  below;  thus,  to  use  the 


j 
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AD  AX  command  to  execute  the  intermediate  code  file  (aiaJBle)  produced  by  a  previous  ADAC 
command,  the  extension  "AIS*  need  not  be  spoefbd  as  it  will  be  supplied. 

If  no  datajib  is  specified  SYSS  INPUT  will  be  used  for  the  TEXT  JO  default  input  file.  Tire  data 
input  file  may  be  specified  as  the  second  parameter  or  with  the  /DATAsfib_narrre  qualifier,  The 
extension  in  the  file  name  must  be  given  explicitly. 

Either  the  ADA  or  the  ADAC  commands  may  be  used  to  add  companion  units  to  a  library. 

4.3.  ADA  Command  The  ADA  command  is  used  to  compile  and  execute  an  Ada  program.  It 
should  be  given  the  name  of  an  ada  source  file.  If  no  extension  to  the  file  wm*  is  specified, 
'ADA*  will  be  used.  If  no  source  file  is  specified  then  the  editor  will  be  entered  to  ante  a  file 
(named  SRC.  ADA)  which  will  be  compiled  and  executed. 

The  farm  of  the  command  line  is: 

ADA  (adajtoinoejfile  [data_file]][qualifier». . .] 

Execution  will  not  take  place  unless  there  are  no  translation  errors  and  a  main  procedure  is  speci¬ 
fied.  The  qualifier  /MAIN  may  be  used  to  identify  the  main  procedure.  The  data_file 
the  input  data  for  the  ada  program.  This  file  need  not  be  specified  if  there  is  no  input  or  if  input 
is  from  SYSSINPUT.  The  data  file  is  associated  with  the  default  input  file  of  TEXT  JO.  The 
ada  source  file  may  contain  any  number  of  compilation  units.  A  library  may  be  «p«-ifi*d  by  tire 
qualifier  /LffiFILE.  A  bound  code  file  may  be  produced  for  subsequent  the 

ADACB  command.  Use  tire  qualifier  /ADCFILE  far  this  purpose. 

4.4.  ADAC  Command  The  ADAC  command  is  used  to  eompfle  but  not  execute  an  Ada  pro¬ 
gram.  It  should  be  given  the  name  of  an  ada  source  file.  If  no  extension  to  the  file  ««">  is  speci¬ 
fied,  "ADA"  will  be  used.  If  no  source  file  b  specified  tlren  the  effitor  will  be  entered  to  create  a 
file  (named  SRC  ADA)  that  will  be  compiled. 

The  format  of  the  ADAC  command  b: 

ADAC  [adajrourcejBle][qualifien...] 

The  normal  output  of  the  ADAC  command  b  an  ais-file  containing  the  translated  form  of  the 
Ada  source  (use  of  the  /AISFILE  qualifier  b  not  necessary).  The  translated  or  intermediate  code 
can  be  executed  subsequently  using  the  ADAX  command.  The  ads  source  file  may  «rmt»in  any 
number  of  compilation  units.  A  library  may  be  specified  by  the  qualifier  /LEBFILE.  The  ADAC 
command  must  be  used  when  building  a  library  of  compilation  units.  The  library  file  will  be 
updated  if  necessary  to  refleet  any  new  units  introduced  by  the  compilation.  Tire  /ADOFILE  qual¬ 
ifier  may  be  used  to  produce  a  bound  program  if  a  main  procedure  and  all  required  library  units 
and  subunits  are  present. 

4J«  ADACB  Command  The  ADACB  command  b  used  to  <***>ptv  and  bind  but  not  execute 
an  Ada  program.  It  should  be  given  the  name  of  an  ada  source  file.  If  no  extension  to  tire  file 
name  b  specified,  "ADA"  will  be  used.  If  no  source  fib  b  specified  then  tire  editor  still  be 
entered  to  create  a  fib  (named  SRCADA)  that  still  be  «nmpfi*d  and  executed 
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The  format  of  the  ADACB  command  is: 

ADACB  [ada_fik][qualifiers...] 

If  there  are  no  translation  errors,  the  ADACB  command  produces  a  bound  translated  program  in 
an  aix_file.  Use  of  the  /AIXFILE  qualifier  is  not  necessary.  There  must  be  a  unique  main  pro¬ 
cedure  (parametcrless).  The  name  of  this  procedure  may  be  specified  by  the  /MAIN  qualifier. 
The  ada  source  file  may  contain  any  number  of  compilation  units.  A  library  may  be  specified  by 
tire  qualifier  /UBFILE. 

4,(,  ADAX  Command  The  ADAX  command  is  used  to  execute  a  previously  compiled  pro¬ 
gram.  The  input  file  must  be  an  AISfile  produced  by  a  previous  ADAC  or  ADA  command.  If  no 
extension  is  given,  a  default  extension  ctf  "AIS"  will  be  used.  A  UBFILE  must  also  be  supplied 
if  any  compilation  units  from  the  library  are  needed.  The  input  file  must  contain  a  tingle  main 
pr Ingram  (parameterkss  procedure).  This  may  be  specified  with  the  /MAIN  qualifier. 

Tire  format  of  the  ADAX  command  is: 

ADAX  ait  file  [da  ta_fik]  [qualifiers...] 

Additionally  the  qualifier  /AIXFILE  may  be  used  to  produce  a  bound  code  file. 

4.7.  ADAXB  Command  Hie  ADAXB  command  it  used  to  execute  code  in  an  AIXfik.  The 
input  file  must  be  an  AIXfiie  produced  by  a  previous  compilation  using  the  ADACB  command  or 
the  /AIXFILE  qualifier.  If  no  extension  is  given  a  default  extension  of  "ADC”  will  be  used.  The 
bound  code  in  that  fik  is  executed  by  the  interpreter. 

The  format  of  the  ADAXB  command  is: 

ADAXB  aixJBk  [data_file][qualifierv..] 


4.8.  ADAXL  Command  The  ADAXL  command  is  used  to  execute  a  program  whose  compila¬ 
tion  units  are  given  in  a  Library  file.  The  input  fik  is  the  library  that  contains  the  main  program 
and  its  dependent  units.  If  no  extension  is  given,  the  default  of  'LIB*  will  be  used.  The  /MAIN 
qualifier  must  be  used  if  there  is  more  than  cm e  parameterless  procedure  in  the  library  that  could 
be  executed  as  the  main  procedure.  The  program  that  results  from  landing  of  the  library  units  is 
tln-n  executed.  The  /AIXFILE  may  be  used  to  save  the  bound  program  for  later  execution.  An 
input  data  fik  may  be  specified  as  the  second  argument  to  the  command  or  by  using  the  /DATA 


The  format  of  the  ADAXL  command  is: 

ADAXL  lib_fik  [da t*_fik] [qualifiers...] 
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4.9.  ADAP  Command  The  ADAP  command  is  used  to  pane  an  Ada  source  program.  It  may 
be  used  to  check  a  program  for  proper  syntax  before  compiling  it. 

The  format  of  the  ADAP  command  is: 

ADAP  [ada_file][qualifierx...] 

The  appropriate  qualifiers  are  /ERRFILE,  to  specify  an  error  file  and  /LIST  to  specify  a  listing 
file. 


4.9.1  adaprs  Command 

The  adaprs  command  is  used  to  pane  an  Ada  source  program.  It  can  be  used  to  fWV  a 
program  for  proper  syntax  and  limited  semantics  before  compiling  it  with  adac.  This  com¬ 
mand  is  equivalent  to  the  adap  command,  however  it  is  an  order  of  magnitude  faster. 
Adap  is  still  available  and  can  be  used  if  adaprs  does  not  perform  properly  on  a  given  pro¬ 
gram.  Please  report  such  problems  to  the  NYU  /  Ada  Project. 

The  format  of  the  adaprs  command  is: 

adapn  adajik  ([-nl]  |  [-lpistingjBie]]] 

-nl  *  Do  not  produce  a  listing  file  as  indicated 
•1  *  Produce  a  listing  file,  optionally  specifying  it 

If  the  ada_filc  name  is  in  the  format  of  xxxxxx.ada  and  the  -1  parameter  is  used  the 
listingjile  will  have  the  name  xxxxx.lis.  If  the  -1  is  not  specified  the  listing  will  be 
displayed  on  the  terminal. 

$  adaprs  test.ada 

The  listing  file  is  displayed  on  the  terminal 

$  adaprs  tesuada  *1 
The  listing  file  is  created  as  test.lis 

$  adaprs  test.ada  -ltest.ls2 
The  lining  file  is  created  as  test.ls2  . 

$  adaprs  test.ada  -nl 
No  listing  file  is  produced 

An  auxiliary  file  xxxxx.msg  is  produced  after  each  use 
ignored. 


of  adaprs  and  may  be 
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5.  VO  As  part  of  the  support  environment  for  Ada,  the  TEXT  JO  package  is  available  for 
accessing  and  manipulating  character  files  on  a  line  oriented  basis.  In  addition  the  packages 
SEQUENTIAUO  and  DIRECT  JO  ate  available  to  perform  VO  on  any  kind  of  internal  Ada 
objects.  The  exceptions  that  may  be  raised  while  performing  I/O  are  defined  in  the 
IQ  EXCEPTIONS  package.  The  specification  of  all  these  packages  is  given  in  chapter  14  of  the 
Reference  Manual. 

5.1.  TEXT  JO  A  package  for  performing  Input/Output  on  files  of  characters  as  defined  in  the 
reference  manual  is  available  under  the  name  TEXT  JO. 

The  qualifier  /TIO  supplied  when  a  compilation  is  being  made  (ADA  and  ADAC  commands)  will 
automatically  prefix  every  compilation  unit  in  the  source  file  with  the  context: 

with  TEXTJO;  use  TEXTJO; 

See  section  4.1. 

When  using  TEXTJO  the  standard  input  file  is  the  input  data  file  (by  default  SYSSINPUT).  If 
this  file  is  the  user's  terminal,  a  prompt  will  be  issued  whenever  a  line  of  input  is  required.  The 
prompt  character  is  *>’.  On  output  no  fine  is  written  until  it  is  complete.  Thus,  PUT(X),  does 
not  write  X  out  immediately,  but  places  it  in  an  output  buffer.  The  buffer  is  flushed  when  a 
PUTJJNE  or  NEWJJNE  call  is  made  or  when  the  program  has  finished  execution.  Thus,  do 
NOT  use  PUT  with  a  SIRING  argument  as  a  prompt  or  debugging  aid;  use  PUTJJNE  instead. 

SJ.  File  management  under  VAX/VMS 

See  Appendix  F :  Implementation  Dependent  Characteristics  at  the  end  of  this  user's  manual. 


A 
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6.  Using  Libraries  To  create  a  Library  use  the  /UBFILE- library jnaiw:  and  /NEWUB  qu&lif- 
ien  when  compiling  the  first  compilation  unit  erf  that  library.  If  no  extension  is  «n^fw.d  fm  the 
library  file  name,  *UB’  will  he  supplied  by  default. 

To  add  a  compilation  to  an  existing  Ada  library  simply  compile  it  using  tte  ADA  (or  ADAC) 
commands  in  the  presence  of  the  library  (given  by  the  AJBFILE  qualifier) 

For  example: 

1  creates  lib  w/  partl.ais 

ADAC  partl/LIBFILE*  libr/NEWLIB 

I  adds  part2.ais  to  libr.lib 
ADAC  part2AJBFILE=libr 

!  adds  part3.ais  to  the  library 
ADAC  partf/UBFILE-libr 

I  executes  the  main  procedure  in  libr.lib 
*’  ADAXL  libr/MAIN  -  uniUame 
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7.  Error  Diagnostics  There  are  four  classes  of  error  messages:  Lexical,  Syntactic,  Semantic, 
and  Execution.  Messages  of  the  first  three  types  may  arise  during  compilation',  Execution  errors 
occur  only  during  interpretation.  The  form  of  an  error  message  is  illustrated  by: 

FOR  1FROM  1  TO  10  LOOP 
•••  Syntactic  Error  unexpected  input  ignored. 

The  message  gives  the  error  dass  fallowed  by  some  explanatory  text  For  Lexical,  Syntactic,  and 
Semantic  errors,  the  portion  of  text  in  error  is  indicated  on  the  listing  and  error  files.  This  is 
doy  when  possible  by  underlining  the  incorrect  text  as  illustrated  above.  For  syntax  errors  the 
at  which  the  error  was  discovered  may  be  highlighted  by  circumflexes.  Thus,  the  token 
•FROM"  is  marked  as  the  error  paint  Note  that  tokens  to  the  left  and  right  of  the  error  token 
may  be  dropped  by  the  parser,  in  attempt  to  recover  from  the  error.  The  semantic  error  messages 

are  for  the  most  part  self-explanatory.  _  _ 

F«*rniinn  errors  raise  the  exception  SYSTEM-ERROR,  defined  in  package  SYSTEM.  The 
programmer  may  write  handlers  for  this  exception.  When  an  exception  is  raised  and  there  is  no 
handler  provided  for  it,  the  following  form  of  message  may  be  produced : 

•••  Exception  END_ERR(IR  raised  in  MA1NTASK  MAIN  statement  S 
•••  No  handler,  task  is  terminated 

On  dm  other  band,  an  error  message  of  the  form: 

•••  ERROR  AT  STATEMENT ... 

signifies  an  internal  eompfler  error.  Please  report  such  errors. 

If  a  program  onoflm  a  large  number  of  errors,  the  compiler  may,  on  very  rare  tireumstances, 
abort  before  termination  and  without  producing  any  listing.  In  such  esses,  rerun  the  compiler 
with  the  /ERRF1LE  qualifier.  The  error  file  generated  will  contain  all  error  messages  produced 
before  the  paint  of  the  compiler  termination. 

LIST  OF  SEMANTIC  ERROR  MESSAGES 

The  following  is  the  list  of  semantic  errors  that  cut  be  emitted  by  Ada/Ed.  Any  text  between 
double  quotes  it  replaced  by  an  actual  identifier  or  expression.  The  numbers  at  left  refer  to  the 
Reference  Manual  paragraphs  which  describe  the  error  condition  being  diagnosed. 


2.8  Invalid  pragma  format 

3.6.1. 3.7.2  Unconstrained  "array  or  record"  in  object  declaration 

3.2  Missing  initialization  m  constant  declaration 

3.2, 7.4  Invalid  context  for  deferred  constant 

3.2, 7.4  "id”  is  not  a  deferred  constant 

8.3  Invalid  redeclaration  of  "id” 

7.4, 7.4.1  incorrect  type  in  rededaration  of  "id" 
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7.4  Missing  initialization  m  redeclaration  of  "id" 

7.4.4  Initialization  not  available  for  entities  of 

type 

7.4.3  premature  use  of  deferred  constant  before  its  full 
declaration 

3.2  Expect  literal  expression  in  number  declaration 

3.2  Expect  universal  numeric  type  in  number  declaration 

3.7.1  Invalid  use  of  discriminants 

8.3  Invalid  redeclaration  of  "id" 

3.8  Incomplete  type  definition  must  be  completed  in  the 

same  scope  in  which  it  first  appears 

7.4  Invalid  context  for  redeclaration  of  private  type 

12.1  Generic  private  type  "id"  cannot  have  declaration 
in  private  part 

3.3  Invalid  typejnark  in  subtype  indication 

3.3  invalid  use  of  type  "id"  within  its  own 
definition 

3.8  Invalid  constraint  an  access  type 

3.6.1,  3.7.2  Invalid  subtype  indicatian:  type  is  already 
constrained 

3.3. 3.6.1  Invalid  type  mark  in  subtype  indication:  "id" 

3.4  A  derived  or  private  type  MmrA  in  ■  visible  part 
cannot  be  derived  in  the  same  visible  part 

3.4  cannot  obtain  derived  type  from  "id" 

3.5.4  bounds  in  an  integer  type  definitian  must  be  static 

3.5.4  bounds  in  an  integer  type  definitian  must  be  of  ««ni> 

integer  type 

3.5.7  Expect  static  expression  for  digits 

3.5.7  Expect  integer  expression  for  DIGITS 

3.5.7  Invalid  digits  value  in  real  type  declaration 

3.5.7  Expect  static  expression  for  delta 

3.5.9  Expression  for  delta  must  be  of  some  real  type 

3.5.9  Missing  range  in  fixed  type  declaration 

3.5.7. 3.5.9  Bound  in  range  constraint  of  type  definition  must  be 
static 


3.5.7, 3.5.9  Bound  in  constraint  of  real  type  declaration  must  be 
areal  type 

3.3. 3.6.1  Invalid  RANGE  constraint  for  type 

3.3  Invalid  constraint  for  type 

12.1  aocurracy  constraint  cannot  depend  on  a  generic  type 

3.5.7  Expect  static  expression  for  DIGITS 

3.5.7  Invalid  value  for  DIGITS 

3.3  Invalid  expression  for  range  constraint 

3.3  RANGE  attribute  has  wrong  type  for  constraint 

3.3. 3.6.1  Invalid  subtype  name  in  constraint 

3.3  invalid  constraint  for  type 

3.6.1  Constraints  apply  to  all  indices  or  none 

3.6.1, 3.7.2  Unconstrained  element  type  in  array  declaration 

3.6.1  Array  type  is  already  constrained 

3.6.1  Incorrect  no.  of  index  constraints  for  type  "id" 

3.3. 3.6.1  Type  constraint  error 

3.6.1  Invalid  type  mark  in  subtype  definitian  "id" 

3.6.1  Invalid  expression  for  index  definition 
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3.3,  3.6.1  Invalid  bounds  expressions  b  range 

3.3. 3.6.1  expea  discrete  type  b  disaete  range 

3.6.1  Invalid  index  constraint  for  "id" 

3.7.1  Incomplete  specification  of  default  values  far 
discriminants 

3.8 . 7.4.1  Discriminants  do  not  match  previous  declaration 

3.7.1  Discriminant  must  have  discrete  type 

3.1  Invalid  self-reference  b  definition  of  Id" 

3.6.1. 3.7.2  Unconstrained  "array  or  record"  b  component  declaration 

3.3. 3.7.2  Invalid  type  for  constraint 

3.7.1. 3.7.2  Invalid  constraint:  Record  type  has  no  discriminant 

3.7.2  Positional  associations  after  named  ones 

3.7.2  Too  many  constraints  for  record  type, 

3.7.1. 3.7.2  Expect  discriminant  names  only  b  discriminant 
constraint 

3.7.1, 3.7.2  Invalid  discriminant  name  b  discriminant  constraint 

3.7.1. 3.7.2  Duplicate  constraint  for  discriminant  "id" 

3.7.2  Missing  constraints  for  discriminants 

3.7.1  a  discriminant  appearing  b  a  subtype  indication  must 
qjpear  by  itself 

3.7.1, 3.7.3  Invalid  discriminant  name  m  variant  part 
3-7.1, 3.7.3  invalid  redeclaration  of  "id”  b  private  part 

3.8. 8.2  invalid  rededaratian  of  "id" 

4  "expr"  has  incorrect  type.Expect  "id" 

4.8. 3.8  Context  of  allocator  must  be  an  access-type 

3.8. 4.8  Invalid  type  for  aQocatar.  Expert  "id" 

4.6  ambiguous  expression  far  conversion 

4.6  Invalid  array  conversion 

4.6  conversion  not  possible  to  type  "id" 

4  Incorrect  type  far  expression.  Expert  "id” 

3.5.9. 4.5.5  Missing  explicit  amvenfan  Cram  universal  fixed  value 

6.4  Invalid  argument  list :  positional  paranrtnr  after 

named  parameter 

4.5.5, 4.10  Invalid  context  far  mixed  mode  operation 

4.5.5  Missing  explicit  conversion  from  univcnaUtaed  value 

7.4.2  "opjiame"  not  available  on  •  limited  type 

6.4.1  "mode"  actual  parameter  no.  "no"  b  call  n  not  a 
variable 

4.3  OTHERS  must  be  the  last  aggregate  component 

4.3.1  No  value  supplied  for  dberimbant  Id" 

4.3.1  Value  for  discriminant  "id"  must  be  static 

3.7.2  Discriminant  value  for  Id"  is  out  of  range 

4.3.1  undefined  component  name  "id" 

4.3.1  Duplicate  value  for  component  "id"  b  aggregate 

4 .3.1  Range  choice  not  allowed  b  record  aggregate 

4.3.1  OTHERS  choice  must  represent  at  least  one  component 

4.3.1  OTHERS  expression  incompatible  with  "id" 

4.3.1  components  on  a  choice  list  must  have  same  type 
none  Too  many  components  for  record 

4.3.1  No  value  supplied  for  cnmponuil  "id" 

3.S.9, 4ii  Missbg  explicit  conversion  from  umvenaLfixed  value 

6.6. 8.3  Ambiguous  mil  to  one  of  "id", "id"... 

6.7. 8.3  Ambiguous  operands  for  "op" 
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3.S.1, 4.7,  8.3  Ambiguous  titera!:  "expr" 

8.2, 8.3  ambiguous  expression 

8.4. 14.4  TextJo  not  instantiated  nor  defined  for  type 

3.3.1  no  instance  at  "opn"  has  type  "id" 

none  Expect  expression  to  yield  type  "id" 

7.4.2  assignment  not  available  on  a  limited  type 

5.2  left-hand  side  in  assignment  is  not  a  variable 
3.7.3,  S.4  Case  expression  not  of  discrete  type 

5.4  Case  expression  cannot  be  of  a  generic  type 

3.7.3. 3.4  The  choice  OTHERS  must  appear  alone  and  last 

5.4  choice  must  have  type  "id" 

3.7.3. 5.4  Case  choice  not  static, 

5.4  choice  valuers)  not  in  range  of  static  subtype  of  case 
expression 

3.7.3. 5.4  Duplicate  choice  vahie(s), 

3.7.3. 5.4  Missing  OTHERS  choice 

5.6  invalid  block  id.  Id" 

5.6  missing  block  id.  "id" 

5.7  EXIT  statement  not  in  loop 

5.5. 5.7  Invalid  loop  label  in  EXIT:  Id" 

5.7  attempt  to  exit  from  "entity" 

5.8  invalid  context  for  RETURN  statement 

5.8  Procedure  cannot  return  value 

5.8  Function  must  return  value 

5.1  Duplicate  identifier  for  label:  *id" 

5.1  Undefined  label 

5.9  Unreacheable  label:  "id" 

6.7  Inoorrect  no.  of  arguments  far  operator  "id" 

6.7  Initializations  not  allowed  far  operators 

6.7  Parameters  of  *  must  have  mm  type 

6.7  •  can  only  be  defined  for  limited  types 

6.7  /*  cannot  be  given  an  explicit  definition 

6.1  Duplicate  formal  parameter.  Id" 

6.5  in^out  parameter  not  allowed  for  functions 

6.1  default  initialization  only  allowed  for  IN  parameters 

7.4.2  Default  initialization  not  allowed  for  limited  types 

6.3.1  Declaration  does  not  match  previous  specification 

5.1  Unsuparted  feature:  not  procedure  or  entry  call 
6.5, 9J  Invalid  procedure  or  entry  call 

5.1  Invalid  statement 

9.5  Invalid  call, 

4.5  "desig"  is  not  an  operator  designator 

8.3. 8.4  Redeclaration  of  identifier:  "id" 

6.6  Redeclaration  of  subprogram:  "id" 

7.1. 9.1  specification  and  body  ire  in  different  teopw 

7.1. 9.1  Matching  specification  not  found  for  body  "id" 

7.4. 12.1.2  Invalid  context  for  private  declaration 

8.2  Invalid  redeclaration  of  "id" 

3.8.1. 7.4.1  invalid  use  of  type  "id"  before  its  full  declaration 

7.4  Wrong  scope  for  type  of  deferred  constant 

7.4.1  Private  type  cannot  be  fully  declared  with  a  type 
without  assignment 

Private  type  cannot  be  fuDy  declared  as  an 


7.4.1 
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7.4.1 

7.4.1 

7.2 . 7.4.1 

7.3 

3.8.1 

10.1 

3.1 

3.3 

8.3,  8.4 

3.2 

4.1.3. 8.3 

4.1.3 

4.1.3 

8.3 

8.5 
8.3 

8.5 
8.3 

4.1.4. 8.5 

8.5 

8.5 

85 

8.5,12.3.6 

8.5,12.3.6 

9.5 

9.5 

8.5 

8.3 

8.4. 10.1 

8.4 

9.5 
9.5 
9.5 
9.5 
9.5 
9.5 
9.5 

9.5. 3.6.1 
9.5 
9.7.2 
9.5 

9.5. 3.6.1 
9.5 

9.5 

9.7.1 

9.7.1 


unconstrained  array  type 

Private  type  without  discriminants  cannot  be  given  full 
declaration  with  discriminants 
Missing  redeclaration  in  private  part  for  "id* 
Redeclaration  of  "id"  in  private  part 
Missing  body  for  "proc  or  func"  "id" 

Missing  full  type  declaration  for  incomplete  type  "id" 
Compilation  unit  not  found:  "id” 

Undeclared  identifier  "id" 

Invalid  reference  to  type  "id" 

Ambiguous  identifier.  Could  be  one  of:  "id*, "id'... 
Invalid  object  for  name:  "id" 
selector  "id"  not  declared  in  "id" 

Invalid  name  for  selected  component:  "id" 

Ambiguous  name  in  selected  component:  "kf 
duplicate  identifier:  Id" 

Expect  identifier  in  renaming  of  "kind" 

"id"  is  not  "kind" 

Object  cannot  be  renamed  as  procedure 
Object  cannot  be  renamed  as  function 
Expect  a  type  far  the  attribute 
Function  spec,  does  not  match  renamed  attribute  * 
invalid  typejnark  in  RENAMES  dause 
existence  of  object " id "  depends  on  a  discriminant 
•  ambiguous  subprogram  name:  "id" 

No  match  far  subprogam  specification 
Cannot  rename  entry  family  as  a  whole 
Invalid  index  on  an  entry  (not  entry  family) 

No  entry  match  for  subprogram  specification 
Duplicate  declaration  of  "id" 
undeclared  name  in  USE  list  "id" 

"id"  is  not  the  name  of  a  USEable  package 
Accept  statements  can  only  appear  in  tasks 
Undefined  entry  name  in  ACCEPT:  "id" 
invalid  index  on  entry  (not  entry  family) 

ACCEPT  statement  does  not  matdb  any  entry 
Missing  index  for  entry  family 
invalid  entry  name  in  accept:  "id" 

An  accept  statement  cannot  appear  within  an  accept  for 
the  same  entry 

Call  to  member  of  entry  family  requires  one  index 
invalid  index,  "id"  is  not  an  entry  family 
expect  entry  name  in  entry  call 
Missing  index  in  name  of  member  of  entry  family 
Member  of  entry  family  requires  a  tingle  index 
Expect  task  object  in  entry  name 
Expect  task  object,  not  type 
Undefined  entry  name  in  task  :  "id" 

Delay  and  terminate  alternatives  cannot  appear  in  the 
same  SELECT  statement 

ELSE  part  cannot  appear  in  SELECT  statement  if  delay 

or  terminate  alternatives  are  present 

Only  one  terminate  alternative  can  appear  fat  a  SELECT 


9.7.1 
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statement  _ 

9.7.1  SELECT  statement  must  have  at  least  one  ACCEPT 
alternative 

9.10  Expect  task  object  in  abort  statement 

9.10  Invalid  task  type  in  ABORT  statement 

10.1 .1  Unknown  unit  in  with  clause:  "id" 

7.1. 9.1  specification  and  stub  for  "id"  are  in  different  scopes 

7.1,  9.1  Matching  specification  not  found  for  stub  ’id" 
none  Invalid  compilation  unit 

10.1  Name  of  separately  compiled  unit  cannot  be  an  operator 
designator 

10.2  Subunit  identifier  not  unique:  "id" 

10.2  stubs  can  only  appear  in  the  outermost  scope  of  a 

compilation  unit 

10.2  cannot  find  stub  far  subunit  "id" 

10.2  cannot  find  stub  for  subunit  "id" 

11.2  OTHERS  must  appear  last  in  handler 

11.1  "id"  is  not  an  exception 

11.2  duplicate  exception  name  in  handler 

11.2  Duplicate  OTHERS  in  exception  part 

11.2  OTHERS  must  appear  alone  in  exception  list 

11.3  RAISE  statement  not  directly  in  exception  handler 

8.3  Duplicate  declaration  of  "id" 

12.1.1  .  Type  of  a  generic  forma]  object  of  mode  IN  must  not  be 
a  limited  type 

12.1.1  Initialization  not  allowed  for  IN  OUT  generic  parameters 

12.1.1  OUT  generic  f annals  objects  not  allowed 

12.1.2  constants  of  a  generic  type  cannot  be  deferred 

6.7.12.3.1  explicit  overloading  of  the  inequality  operator  is  not 
allowed 

12.1. 12.3  "id"  is  not  a  generic  "kind" 

12.1  "id"  is  not  a  generic  package 

12.3  Recursive  instantiation  not  allowed 

12.3  Too  many  actuals  in  generic  instantiation 

12.3  Positional  association  after  named  one 

12.3  Missing  instantiation  for  generic  parameter  "id" 

12.3  duplicate  or  erroneous  named  associations  in 

instantiation 

12.1.1. 12.3.1  Instantiation  of  generic  in  out  parameter  is  not  a 
variable 

12.3.1  Instantiation  of  generic  in  out  parameter  cannot  be  a 
conversion 

12.3.1  existence  of  generic  in  out  parameter  "id”  depends  on 
a  discriminant 

12.3, 12.3.2*12.3.5  invalid  expression  for  instantiation  of  "id" 

12.3  invalid  expression  for  instantiation  of  "id" 

12.3.2-12.3.5  Expect  type  to  instantiate  "id" 

12.3.2  *  12.3.5  Invalid  type  for  instantiation  of  "id" 

12.3  Invalid  use  of  incomplete  type  in  instantiation  of  "id" 

12.3  Invalid  use  of  private  type  in  instantiation  of  "id" 

12.3.2  Expect  non-limited  type  to  instantiate  "id" 

12.3.2  discriminant  mismatch  in  instantiation  of  "id" 

12.3.2  Instantiation  of  "id"  must  be  unconstrained 


VMS  Adafed  Ubov  Guide 


12.3.2  Usage  of  private  type  “id"  requires  instantiation 
with  constrained  type 

12.3.3  expect  access  to  "id"  to  instantiate  ’id" 

12.3.3  fortnal  and  actual  designated  types  must  be  both 
constrained  or  unconstrained 

12.3.5  Expect  access  type  to  instantiate  "id" 

12.3.4  Expect  array  type  to  instantiate  ’id" 

12.3.4  Expect  constrained  array  type  to  instantiate  ’id" 

12.3.4  Expect  unconstrained  array  type  to  instantiate  ’id” 

12.3.4  Dimensions  of  actual  type  do  not  match  those  of  ’id” 

12.3.4  index  or  component  type  mismatdi  in  instantiation  of 
array  type  ’id” 

12.3.4  formal  and  actual  array  component  type  must  be  both 
amstmned  or  unconstrained 

12.3.6  ambiguous  or  invalid  match  for  generic  subprogram  ’id” 

12.3.6  Attribute  does  not  match  generic  subprog. ip  pec 

12.3.6  Invalid  object  for  instantiation  of  generic  subprog 

13.1  type  "id"  does  not  appear  in  same  declarative  pan 

7.4.1  type  ’id"  appears  before  its  full  type  declaration 

13.2  Expression  in  size  spec  is  not  swtic 

13.2  Prefix  of  attribute  is  not  type  or  first  named  subtype 

13.2  Prefix  of  attribute  is  not  task  type  O'  access  type  > 

13.3  Identifier  is  not  an  enumeration  type 

13.3  Integer  code  is  not  dbtinct  or  violates  predefined 

ordering  relation  of  type 

13.3  Component  of  aggregate  in  enumeration  representation 
dausc  is  not  static 

13.4  Identifier  is  not  a  record  type 

13.4  Alignment  dause  must  contain  a  static  expression 

none  Component  "id"  does  not  appear  in  record  7pe 

Component  “id"  already  occurs  in  dause 

13.4  Expression  for  component  Id"  must  be  static 

13.4  Range  fa  component  "id"  must  be  static 

3.3  Invalid  expression  far  range  constraint 

3.3  RANGE  attribute  has  wrong  type  for  constraint 

13.7.2,  Annex  A  use  of  SYSTEM.  ADDRESS  requires  presents  of  package 
SYSTEM 

3.6.2  Invalid  or  ambiguous  argument  for  attribute  RANGE 

3.6.2  attribute  Id”  is  undefined  on  unconstrained  type  ’id" 

4.3. 4.3.2  OTHERS  choice  not  allowed  m  this  context 

4.3.2  In  a  positional  aggregate  only  named  association 
allowed  »  OTHERS 

4.3.2  Named  aggregate  choice  not  static 

4.3  Aggregate  contains  duplicate  choices 

4.3  Missing  values  in  aggregate 

Appendices  B,F  Format  error  in  pragma  "id" 

Appendix  B  Priority  must  be  static 
Appendix  B  Invalid  format  for  pragma  priority 

Invalid  pragma  format 
Invalid  file  name 

AppeaSces  BJ  format  error  in  pragma  "id" 

none  System  error:  invalid  node  type  "node" 

none  "feature"  is  not  supported  in  current  implementation 
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none  Precision  not  supported  by  implementation 

none  Implementation  only  supports  digits  6 
none  system  error:  strange  op  type  "id" 
none  system  error :  empty  kibe!  stack 


VMS  Ada/Ed  there  Guide 


f .  Restrlctioni  and  Limitations  There  are  no  aet  limits  on  the  number  of  identifiers,  lines  of 
code,  number  of  procedures,  packages,  or  tasks  that  may  appear  in  a  program.  Practical  limita¬ 
tions  are  imposed  only  by  the  size  of  the  total  memory  available.  In  general,  programs  of  more 
than  a  thousand  lines  will  probably  exhaust  storage,  and  should  be  compiled  in  several  separate 
units  if  possible. 

The  following  miscellaneous  limitations  should  be  observed  by  the  user  of  Ada/Ed  Version  1.4: 

(1)  A  generic  object  cannot  contain  any  stubs. 

(2)  A  compilation  can  refer  only  to  a  single  library. 

(3)  Representation  specifications  are  not  implemented. 
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9.  Appendix  F:  Implementation  Dependent  Characteristics 

(1)  The  form,  allowed  places,  and  effect  of  implementation  dependent  pragmas. 

NYU  Ada/Ed  does  not  recognize  any  implementation  dependent  pragmas.  The  language 
defined  pragmas  arc  correctly  recognized  and  their  legality  is  checked,  but,  with  the  exception 
of  LIST  and  PRIORITY,  they  have  no  effect  on  the  execution  of  the  program.  A  warning 
message  is  generated  to  indicate  that  the  pragma  is  ignored  by  Ada/Ed. 

(2)  The  name  and  the  type  of  every  implementation  dependent  attribute. 

There  are  no  implementation  dependent  attributes  in  NYU  Ada/Ed. 

(3)  The  specification  of  the  package  system. 

package  SYSTEM  is 

type  NAME  is  (ADAJsD); 

type  ADDRESS  is  new  INTEGER; 

>  > 

SYSTEM_NAME  :  constant  NAME  :■  ADAJED; 

STORAGE-UNIT  :  constant  :»  32; 

MEMORY_SlZE  :  constant  :»  2**30 -1; 

-  System  Dependent  Named  Numbers: 

MWJNT  :  constant  :«  -(2*  *30  - 1); 

MAXJNT  : constant  :«  2**30-l; 

MAX-DIGITS  :  constant  6; 

MAX_MANTISSA  :  constant  :«  1000; 

FINE-DELTA  :  constant  :«  2.0**(-30); 

TICK  :  constant  :»  0.01; 

-  Other  System  Dependent  Declarations 

subtype  PRIORITY  is  INTEGER  range  0 ..  9; 

SYSTEM-ERROR  :  exception; 

-  raised  if  internal  check  fails 

end  SYSTEM; 

(4)  The  list  of  all  restrictions  on  representation  clauses. 

NYU  Ada/Ed  does  not  support  any  representation  clauses  and  a  program  containing  any 
instance  of  a  representation  clause  is  considered  to  be  illegal. 

Representation  attributes  are  recognized,  as  required  by  the  defiwlrinw  of  the  language,  but 
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always  return  a  value  of  zero,  since  concepts  such  as  number  of  bite  and  address  do  not  apply 
to  the  implementation. 

(5)  The  conventions  used  for  system  generated  names. 

NYU  Ada/Ed  does  not  provide  any  system  generated  names  denoting  system  dependent  enti¬ 
ties,  since  in  any  case,  representation  specifications  are  not  permitted. 

(6)  The  interpretation  of  expressions  that  appear  in  address  clauses. 

Address  expressions  in  NYU/AdaEd  are  meaniwgWs,  lince  the  model  used  for  interpretation 
does  not  use  addresses.  The  ADDRESS  type  defined  in  SYSTEM  is  present  only  for  complete¬ 
ness,  and  to  be  able  to  recognize  semantically  legal  uses  of  the  attribute  ADDRESS. 

(7)  Restrictions  on  unchecked  conversion. 

NYU  Ada/Ed  will  correctly  recognize  and  check  the  validity  of  any  use  of  unchecked  conver¬ 
sion.  However,  any  program  which  executes  an  unchecked  conversion  is  considered  to  be 
erroneous,  and  the  exception  PROGRAMJERROR  will  be  raised. 

V  * 

(8)  Implementation  dependent  characteristics  of  the  input-output  package. 

A)  Temporary  files  are  fully  supported.  The  naming  convention  used  is  as  follows: 
XHHMMSS.TMP 


X  stands  for  the  file  accessing  method 
S  -  SEQUENTIALJO 
D  -  DIRECT  JO 
T-TEXTJO 

HH  -  hour  of  file  creation 
MM  -  minute  of  file  creation 
SS  -  second  of  file  creation 

B) .  Deletion  of  files  is  fully  supported. 

C)  Only  one  internal  file  may  be  associated  with  the  —me  external  file  (No  multiple 
of  files  allowed). 

D)  File  names  used  in  the  CREATE  and  OPEN  procedures  are  standard  VMS  file  names. 
The  function  FORM  returns  the  string  given  as  FORM  parameter  when  a  file  is  created.  No 
system-dependent  characteristics  are  associated  with  that  parameter. 

E)  A  maximum  of  17  files  can  be  open  at  any  given  time  during  program  execution. 

F)  The  standard  default  input  file  may  be  specified  using  tte  DATA  paranreter  of  the  ADA 
commands.  If  a  file  is  specified  it  must  be  possible  to  open  it  at  the  tegtmiiwj  of  program 
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execution,  otherwise  the  exception  TROGRAMJSRROR  wili  be  raised.  If  no  file  is  specified 
SYSS INPUT  will  be  used.  The  standard  output  file  is  SYSSOUTPUT. 

G)  SEOUENTIALJO  and  DIRECTJO  support  constrained  array  types,  record  types 
without  discriminants  and  record  types  with  discriminants  with  defaults. 

H)  I/O  on  access  types  is  possible,  but  usage  of  access  values  read  in  another  program  execu¬ 
tion  is  erroneous. 

I)  Normal  termination  of  the  main  program  causes  all  open  files  to  be  closed,  and  all  tem¬ 
porary  files  to  be  deleted. 

J)  LOWJ-EVELJO  is  not  supported. 

K)  The  form  feed  diameter  (CTRL  L  •  ascii  12)  is  used  as  the  page  terminator  indicator.  Its 
use  as  a  data  dement  of  a  file  is  therefore  undefined. 


ADA/ED  SOFTWARE  TROUBLE  REPORT 


VERSION  NO.  |  DATE  | 
I  I 

I  I 

_ i _ • _ i 


USER  ID  NO. (LEAVE  BLANK)  |  TROUBLE  REPORT  NO. 

I 

I 

_  I _ 


ATTACHMENTS  INCLUDE 


SYSTEM  ERROR  MESSAGE  _  SOURCE  LISTING  _  DOCUMENT(S) 

INPUT  DATA  _  COMPILED  LISTING  _  OTHER  _ 

OUTPUT  DATA  MAGNETIC  MEDIA  _ 


USER  NAME/DIVISION/COMP ANY/ ADDRESS/  i  VAX  11/780  CONFIGURATION 

CITY,  STATE,  ZIP  CODE  I 

|  CRT  TERMINAL  TYPE  _ 

|  MAIN  MEMORY  SIZE  _ 

I  WORKING  SET  SIZE 

|  OPERATING  SYSTEM/VERSION  _ 

_ I 

(AREA  CODE)  PHONE  NAME  I 


PROBLEM  DESCRIPTION 


USER  RECOMMENDATION 


SOFTWARE  TECHNOLOGY  DEVELOPMENT  USE 


ACTION  TAKEN 


NAME 

OFFICE 

PHONE 

INITIALS 

DATE 

REVIEWER 

OFFICE 

PHONE 

INITIALS 

DATE 

STATUS :  OPEN  CLOSED 

US  ARMY  -  CECOM 
Software  Tech  Dev  Dlv,  CENTACS 
ATTN :  DRSEL-TCS-ADA-1  (T.  BUCK) 

FT.  MONMOUTH,  NJ  07703-5204 


Address 


City /State/Zip  Code 

User  Name  _ 

Division  _ 

Phone  _ 

Version  _ 


VAX  Configuration: 

Model  _ 

Main  Memory  Size  (Mb)  _ 

Working  Set  Size  (pgs)  _ 

i. 

Operating*  System/Version 


Internal  Use  Only: 

Date  Copied  _ 

Method  of  Request  _ 
Method  of  Delivery 
Date  Mailed  _ 


Send  To:  Commander,  CECOM 

- -  Software  Tech  Dev  Dlv,  CENTACS 

ATTN:  DRSEL-TCS-ADA-1  (T .  Buck) 
Fort  Monmouth,  NJ  07703-5204 


New  York  University 

A  private  unirersity  in  the  public  service 

Courant  Institute  of  Mathematical  Sciences 
Department  of  Computer  Science 

251  Mercer  Street 
New  York,  N.Y.  10012 
Telephone:  (212)  460-7100 


May  18,  1983 


To  the  attention  of: 

Mr.  Walter  Finch 
NTIS 

5285  Port  Royal'  Road 
Springfield,  Virginia  22161 


To  Whom  it  May  Concern: 


The  NTIS  is  authorized  to  reproduce  and  sell  this 
copyrighted  work: 

Ada/Ed  users  guide 

Permission  for  further  reproduction  must'  be  obtained  from 
the  copyright  owner. 


Sincerely , 


eA  u*.o  Si^  Sl Xjlqu. 

Dr.  E.  Schonberg 
NYU/ADA  project  ^ 


